object Form1: TForm1
  Left = 136
  Top = 109
  Width = 496
  Height = 375
  Caption = 'SUBDatabase Demo1'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 16
  object Button1: TButton
    Left = 16
    Top = 216
    Width = 80
    Height = 33
    Caption = 'prev'
    TabOrder = 0
    OnClick = Button_upClick
  end
  object Button2: TButton
    Left = 248
    Top = 216
    Width = 80
    Height = 33
    Caption = 'next'
    TabOrder = 1
    OnClick = Button_downClick
  end
  object Panel1: TPanel
    Left = 16
    Top = 264
    Width = 313
    Height = 25
    TabOrder = 2
  end
  object Panel2: TPanel
    Left = 16
    Top = 304
    Width = 313
    Height = 25
    TabOrder = 3
  end
  object Panel3: TPanel
    Left = 8
    Top = 8
    Width = 321
    Height = 201
    TabOrder = 4
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 319
      Height = 199
      Align = alClient
    end
  end
  object Panel4: TPanel
    Left = 338
    Top = 0
    Width = 146
    Height = 344
    Align = alRight
    TabOrder = 5
    object BitBtn1: TBitBtn
      Left = 24
      Top = 288
      Width = 97
      Height = 33
      Caption = '&Close'
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkClose
    end
    object Button6: TButton
      Left = 25
      Top = 64
      Width = 97
      Height = 33
      Caption = 'delete'
      TabOrder = 1
      OnClick = ButtondeleteClick
    end
    object Button7: TButton
      Left = 25
      Top = 16
      Width = 97
      Height = 33
      Caption = 'add'
      TabOrder = 2
      OnClick = ButtonaddClick
    end
    object ButtonStatus: TButton
      Left = 25
      Top = 192
      Width = 97
      Height = 33
      Caption = 'Status'
      TabOrder = 3
      OnClick = ButtonStatusClick
    end
    object ButtonReorg: TButton
      Left = 25
      Top = 240
      Width = 97
      Height = 33
      Caption = 'Reorg'
      TabOrder = 4
      OnClick = ButtonReorgClick
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'bmp'
    Filter = 'bmp-files|*.bmp|ico-files|*.ico'
    Options = [ofAllowMultiSelect]
    Left = 16
    Top = 8
  end
  object SUBDataBase1: TSUBDataBase
    DataBaseName = 'demo.sub'
    Active = False
    OnReorg = SUBDataBase1Reorg
    OnCreate = SUBDataBase1Create
    Left = 400
    Top = 128
  end
end